Welcome! Please test this perl script:
Click here